home *** CD-ROM | disk | FTP | other *** search
/ How to Get Online 1996 Spring / HOW2GON.ISO / mac / Comms & BBS / commsService 3.0.0 Final / AppleScripts / Service Property Example < prev   
Encoding:
Text File  |  1995-06-16  |  554 b   |  18 lines  |  [TEXT/ToyS]
  1. set ServiceToOpen to choose file with prompt "Select parameter file to use :" as string
  2. tell application "commsService"
  3.     try
  4.         set launchName to open ServiceToOpen
  5.         try
  6.             get the height of window launchName
  7.             display dialog "Height of window '" & launchName & "' = " & result & " pixels."
  8.             set the height of window launchName to 200
  9.         on error errMsg
  10.             beep
  11.             display dialog "commsService error - " & return & return & errMsg
  12.         end try
  13.     on error errMsg
  14.         beep
  15.         display dialog "commsService error - " & return & return & errMsg
  16.     end try
  17.     
  18. end tell